home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / wtek0693.zip / OOPALLEY.ZIP / RECT.V < prev    next >
Text File  |  1990-02-24  |  301b  |  15 lines
  1.  
  2. Test class Rectangle
  3. a = (0 @ 0) corner: (9 @ 9)
  4. b = (1 @ 2) corner: (11 @ 3)
  5. a == b: 0
  6. a isEqual c: 1
  7. a contains b: 0
  8. a intersects b: 1
  9. a||b = (0 @ 0) corner: (11 @ 9)
  10. a&&b = (1 @ 2) corner: (9 @ 3)
  11. OrderedCltn[
  12. (0 @ 0) corner: (9 @ 2)
  13. (0 @ 3) corner: (9 @ 9)
  14. (0 @ 2) corner: (1 @ 3)]
  15.